perm filename LIVERM.F4[ESS,JMC]1 blob sn#060041 filedate 1973-08-25 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		x=1
C00003 ENDMK
CāŠ—;
	x=1
	dx=-0.1
	p=1.1
10	if(x**x-p)20,20,30
20	p = x**x
	x = x+dx
	go to 10
30	if(abs(dx)-10E-6)40,40,50
50	dx = -0.1*dx
	p = x**x
	x = x+dx
	go to 10
40	WRITE 100,x,p
100	format(F8.4)
	STOP
	END